\version "2.18.1"
date = #(strftime "%d %B %Y" (localtime (current-time)))

\header {
  title = "J'ai planté un chêne"
  composer = "Gilles Vigneault + Gaston Rochon"
  tagline = \markup {\bold \date}
}

% music pieces
%part: melody
melody = {
  \set Staff.instrumentName = "Melody "
  \relative c'' {
    \key c \major
    \time 3/4

    % intro
    | e4 d c
    | a4 c d
    | e4 d c
    | a4 c d
    \bar "||"

    % verse 1
    \mark \markup{ \bold { 1. } }
    | a8 e' c e d8. c16
    | b8[ d] c[ b] a4
    | a8 b c c b8. g16
    | a8[ c] b[ a] a[ g]
    | a8 e' c d e8. e16
    | c8[ e] d[ c] b4
    | a8[ b] c[ a] f'8. e16
    | b8[ d] c[ b] a4
    \bar "||"

    % verse 2
    \mark \markup{ \bold { 2. } }
    | a8 e' c e d8. c16
    | b8[ d] c[ b] a4
    | a8 b c c b8. g16
    | a8[ c] b[ a] a[ g]
    | a8 e' c d e8. e16
    | c8[ e] d[ c] b4
    | a8[ b] c[ a] f'8. e16
    | b8[ d] c[ b] a4
    %\bar "||"

    % verse 3 + 4
    \mark \markup{ \bold { 3. + 4. } }
    \repeat volta 2 {
      | a8 e' c e d8. c16
      | b8[ d] c[ b] a4
      | a8 b c c b8. g16
      | a8[ c] b[ a] a[ g]
      | a8 e' c d e8. e16
      | c8[ e] d[ c] b4
      | a8[ b] c[ a] f'8. e16
      | b8[ d] c[ b] a4
    }

    % verse 5
    \mark \markup{ \bold { 5. } }
    | a8 e' c e d8. c16
    | b8[ d] c[ b] a4
    | a8 b c c b8. g16
    | a8[ c] b[ a] a[ g]
    | a8 e' c d e8. e16
    | c8[ e] d[ c] b4
    | a8[ b] c[ a] f'8. e16
    | b8[ d] c[ b] a4

    \bar "|."

  }
}

%part: harmony
harmony = {
  \set Staff.instrumentName = "Harmony "
  \relative c' {
    \key c \major
    \time 3/4

    % intro
    | r8 e a g fis4
    | r8 e a g fis4
    | r8 e a g fis4
    | r8 e a g fis4
    \bar "||"

    % verse 1
    \mark \markup{ \bold { 1. } }
    | R2.*8
    \bar "||"

    % verse 2
    \mark \markup{ \bold { 2. } }
    | r8 e a g fis4
    | e4. d8 c4 ~
    | c2 e4
    | c2 e4
    | e2.
    | a2 g4
    | f2 a4
    | gis2 a4
    %\bar "||"

    % verse 3 + 4
    \mark \markup{ \bold { 3. + 4. } }
    \repeat volta 2 {
      | e8 a a g fis8. fis16
      | gis8[ gis] e[ gis] a4
      | a8 a a g g8. e16
      | f8[ f] g[ f] e[ e]
      | e8 a a b a8. a16
      | a8[ c] a[ a] g4
      | f8 f d f a8. a16
      | gis8[ gis] e[ gis] a4
    }

    % verse 5
    \mark \markup{ \bold { 5. } }
    | R2.*8
    %\bar "||"

    \bar "|."
  }
}

%part: tenor
tenor = {
  \set Staff.instrumentName = "Tenor "
  \relative c' {
    \key c \major
    \time 3/4

    % intro
    | R2.*4
    \bar "||"

    % verse 1
    \mark \markup{ \bold { 1. } }
    | R2.*8
    \bar "||"

    % verse 2
    \mark \markup{ \bold { 2. } }
    | c2.
    | gis2 a4 ~
    | a2 g4
    | a2 c8 b
    | c2.
    | c2 d4
    | d2 b4
    | e2 r4
    %\bar "||"

    % verse 3 +4
    \mark \markup{ \bold { 3. + 4. } }
    \repeat volta 2 {
      | c8 c e c a8. a16
      | d8[ d] b[ d] e4
      | c8 d e e b8. b16
      | c8[ a] c[ c] c[ b]
      | c8 c e e c8. c16
      | d8[ c] c[ d] d4
      | c8 c a c d8. f16
      | d8[ d] b[ d] e4
    }

    % verse 5
    \mark \markup{ \bold { 5. } }
    | R2.*8
    %\bar "||"

    \bar "|."

  }
}

%part: bass
bass = {
  \set Staff.instrumentName = "Bass "
  \relative c {
    \key c \major
    \time 3/4

    % intro
    | a2 d4
    | a2 d4
    | a2 d4
    | a2 d4
    \bar "||"

    % verse 1
    \mark \markup{ \bold { 1. } }
    | a2 d4
    | e2 a4 ~
    | a2 e4
    | f2 c4
    | a'2 g4
    | f2 e4
    | d2 b4
    | e2 r4
    \bar "||"

    % verse 2
    \mark \markup{ \bold { 2. } }
    | a,2 d4
    | e2 a4 ~
    | a2 e4
    | f2 c4
    | a'2 g4
    | f2 e4
    | d2 b4
    | e2 r4
    %\bar "||"

    % verse 3 + 4
    \mark \markup{ \bold { 3. + 4. } }
    \repeat volta 2 {
      | a8 a g g d8. d16
      | e8[ e] gis[ gis] a4
      | a8 a g f e8. e16
      | f8[ d] e[ f] e[ e]
      | a8 a a g a8. g16
      | f8[ a] f[ f] e4
      | d8[ d] f a b8. b16
      | e,8[ e] gis[ gis] a4
    }

    % verse 5
    \mark \markup{ \bold { 5. } }
    | a,2 d4
    | e2 a4 ~
    | a2 e4
    | f2 c4
    | a'2 g4
    | f2 e4
    | d2 b4
    | e2 r4
    %\bar "||"

    \bar "|."

  }
}

%part: accordionOne
accordionOne = {
  \set Staff.instrumentName = "Acc1 "
  \relative c'' {
    \key c \major
    \time 3/4

    % intro
    | e4 d c
    | a4 c d
    | e4 d c
    | a4 c d
    \bar "||"

    % verse 1
    \mark \markup{ \bold { 1. } }
    | a8 e' c e d8. c16
    | b8[ d] c[ b] a4
    | a8 b c c b8. g16
    | a8[ c] b[ a] a[ g]
    | a8 e' c d e8. e16
    | c8[ e] d[ c] b4
    | a8[ b] c[ a] f'8. e16
    | b8[ d] c[ b] a4
    \bar "||"

    % verse 2
    \mark \markup{ \bold { 2. } }
    | a8 <e e'> <a c> <g e'> << { d'8. c16 } \\ { fis,4 } >>
    | << { b8[ d] c[ b] a4 } \\ { e4. d8 c4 ~ } >>
    | << { a'8 b c c b8. g16 } \\ { c,2 e4 } >>
    | << { a8[ c] b[ a] a[ g] } \\ { c,2 e4 } >>
    | << { a8 e' c d e8. e16 } \\ { e,2. } >>
    | << { c'8[ e] d[ c] b4 } \\ { a2 g4 } >>
    | << { a8[ b] c[ a] f'8. e16 } \\ { f,2 a4 } >>
    | << { b8[ d] c[ b] } \\ { gis2 } >> a4

    % verse 3 + 4
    \mark \markup{ \bold { 3. + 4. } }
    \repeat volta 2 {
      | <e a>8 <a e'> <a c> <g e'> <fis d'>8. <fis c'>16
      | <gis b>8[ <gis d'>] <e c'>[ <gis b>] a4
      | a8 <a b> <a c> <g c> <g b>8. <e g>16
      | <f a>8[ <f c'>] <g b>[ <f a>] <e a>[ <e g>]
      | <e a>8 <a e'> <a c> <b d> <a e'>8. <a e'>16
      | <a c>8[ <c e>] <a d>[ <a c>] <g b>4
      | <f a>8[ <f b>] <d c'>[ <f a>] <a f'>8. <a e'>16
      | <gis b>8[ <gis d'>] <e c'>[ <gis b>] a4
    }

    % verse 5
    \mark \markup{ \bold { 5. } }
    | a8 e' c e d8. c16
    | b8[ d] c[ b] a4
    | a8 b c c b8. g16
    | a8[ c] b[ a] a[ g]
    | a8 e' c d e8. e16
    | c8[ e] d[ c] b4
    | a8[ b] c[ a] f'8. e16
    | b8[ d] c[ b] a4

    \bar "|."

  }
}

%part: accordionTwo
accordionTwo = {
  \set Staff.instrumentName = "Acc2 "
  \relative c' {
    \key c \major
    \time 3/4

    % intro
    | a2 d4
    | a2 d4
    | a2 d4
    | a2 d4
    \bar "||"

    % verse 1
    \mark \markup{ \bold { 1. } }
    | a2 d4
    | e2 a4 ~
    | a2 e4
    | f2 c4
    | a'2 g4
    | f2 e4
    | d2 b4
    | e2 r4
    \bar "||"

    % verse 2
    \mark \markup{ \bold { 2. } }
    | <c a>2 d4
    | <e gis,>2 <a a,>4 ~
    | <a a,>2 <e g,>4
    | <f a,>2 c8 b
    | <c a'>2 g'4
    | <c, f>2 <d e>4
    | d2 b4
    | e2 r4
    %\bar "||"

    % verse 3 + 4
    \mark \markup{ \bold { 3. + 4. } }
    \repeat volta 2 {
      | <a c>8 <a c> <g e'> <g c> <d a'>8. <d a'>16
      | <e d'>8[ <e d'>] <gis b>[ <gis d'>] <a e'>4
      | <a c>8 <a d> <g e'> <f e'> <e b'>8. <e b'>16
      | <f c'>8[ <d a'>] <e c'>[ <f c'>] <e c'>[ <e b'>]
      | <a c>8 <a c> <a e'> <g e'> <a c>8. <g c>16
      | <f d'>8[ <a c>] <f c'>[ <f d'>] <e d'>4
      | <d c'>8 <d c'> <f a> <a c> <b d>8. <b f'>16
      | <e, d'>8[ <e d'>] <gis b>[ <gis d'>] <a e'>4
    }

    % verse 5
    \mark \markup{ \bold { 5. } }
    | a,2 d4
    | e2 a4 ~
    | a2 e4
    | f2 c4
    | a'2 g4
    | f2 e4
    | d2 b4
    | e2 r4

    \bar "|."

  }
}

%words

verseOne = \lyricmode {

  % intro
  _ _ _
  _ _ _
  _ _ _
  _ _ _

  \set stanza = #"1."
  J'ai plan -- té un chê -- ne
  au bout de mon champ.
  Ce fut ma se -- main -- ne
  perd -- re -- rai-je ma pei -- ne?
  J'ai plan -- té un chê -- ne
  au bout de mon champ.
  Perd -- re -- rai-je ma pei -- ne?
  Perd -- re -- rai-je mon temps?

  \set stanza = #"2."
  L'a -- mour et la hai -- ne
  ce sont mes en -- fants
  et ce sont mes chaî -- nes
  perd -- re -- rai-je ma pei -- ne?
  L'a -- mour et la hai -- ne
  ce sont mes en -- fants.
  Perd -- re -- rai-je ma pei -- ne?
  Perd -- re -- rai-je mon temps?

  \set stanza = #"3."
  Le roi et la rei -- ne
  perd -- ront leur man -- ant
  mais l'a -- mour m'en -- chaî -- ne
  perd -- re -- rai-je ma pei -- ne?
  Le roi et la rei -- ne
  perd -- ront leur man -- ant.
  Perd -- re -- rai-je ma pei -- ne?
  Perd -- re -- rai-je mon temps?

  \set stanza = #"5."
  J'ai plan -- té un chê -- ne
  au bout de mon champ.
  Ce fut ma se -- main -- ne
  perd -- re -- rai-je ma pei -- ne?
  J'ai plan -- té un chê -- ne
  au bout de mon champ.
  Perd -- re -- rai-je ma pei -- ne?
  Perd -- re -- rai-je mon temps?
}

verseFour = \lyricmode {

  % intro
  _ _ _
  _ _ _
  _ _ _
  _ _ _

  % verses 1, 2, 3
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _
  _ _ _ _ _ _

  \set stanza = #"4."
  Ser -- ai Cap -- i -- tai -- ne
  sur mon bâ -- ti -- ment
  tout en bois de chê -- ne
  perd -- re -- rai-je ma pei -- ne?
  Ser -- ai Cap -- i -- tai -- ne
  sur mon bâ -- ti -- ment.
  Perd -- re -- rai-je ma pei -- ne?
  Perd -- re -- rai-je mon temps?
}

theChords = \chordmode {
  % intro
  | a2:min d4:7
  | a2:min d4:7
  | a2:min d4:7
  | a2:min d4:7

  % verse 1
  | a2:min d4:7
  | e2:7 a4:min
  | a2:min e4:min
  | f2 c4
  | a2.:min
  | f2 e4:min7
  | d2:min7 b4:min7
  | e2:7 a4:min

  % verse 2
  | a2:min d4:7
  | e2:7 a4:min
  | a2:min e4:min
  | f2 c4
  | a2.:min
  | f2 e4:min7
  | d2:min7 b4:min7
  | e2:7 a4:min

  % verse 3 + 4
  \repeat volta 2 {
    | a2:min d4:7
    | e2:7 a4:min
    | a2:min e4:min
    | f2 c4
    | a2.:min
    | f2 e4:min7
    | d2:min7 b4:min7
    | e2:7 a4:min
  }

  % verse 5
  | a2:min d4:7
  | e2:7 a4:min
  | a2:min e4:min
  | f2 c4
  | a2.:min
  | f2 e4:min7
  | d2:min7 b4:min7
  | e2:7 a4:min
}

%layout

\book {
  \score {
    <<
      \tempo 4 = 70
      \unfoldRepeats \new Staff \melody
      \unfoldRepeats \new Staff \harmony
      \unfoldRepeats \new Staff { \transpose c c \tenor }
      \unfoldRepeats \new Staff { \transpose c c \bass }
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)

#(define output-suffix "C-score")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \theChords }
        \new Voice = "melody" { \melody }
        \new Lyrics \lyricsto "melody" { \verseOne }
        \new Lyrics \lyricsto "melody" { \verseFour }
        \new Staff \harmony
        \new Staff { \clef "bass" \transpose c c, \tenor }
        \new Staff { \clef "bass" \bass }
      >>
    }
  }
}

#(define output-suffix "C-melody")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \theChords }
        \new Voice = "melody" { \melody }
        \new Lyrics \lyricsto "melody" { \verseOne }
        \new Lyrics \lyricsto "melody" { \verseFour }
        \new Staff \harmony
      >>
    }
  }
}

#(define output-suffix "C-bass")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \theChords }
        \new Staff { \clef "bass" \transpose c c, \tenor }
        \new Staff { \clef "bass" \bass }
      >>
    }
  }
}

#(define output-suffix "Bflat-score")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    page-count = #3
  }
  \header { poet = "B flat / Si bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose bes c \theChords }
        \new Voice = "melody" { \transpose bes c' \melody }
        \new Lyrics \lyricsto "melody" { \verseOne }
        \new Lyrics \lyricsto "melody" { \verseFour }
        \new Staff \transpose bes c' \harmony
        \new Staff { \transpose bes c' \tenor }
        \new Staff { \transpose bes c'' \bass }
      >>
    }
  }
}

#(define output-suffix "Bflat-melody")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "B flat / Si bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose bes c \theChords }
        \new Voice = "melody" { \transpose bes c' \melody }
        \new Lyrics \lyricsto "melody" { \verseOne }
        \new Lyrics \lyricsto "melody" { \verseFour }
        \new Staff \transpose bes c' \harmony
      >>
    }
  }
}

#(define output-suffix "Bflat-bass")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "B flat / Si bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose bes c \theChords }
        \new Staff { \transpose bes c' \tenor }
        \new Staff { \transpose bes c'' \bass }
      >>
    }
  }
}

#(define output-suffix "Eflat-score")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    page-count = #3
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose ees c \theChords }
        \new Voice = "melody" { \transpose ees c \melody }
        \new Lyrics \lyricsto "melody" { \verseOne }
        \new Lyrics \lyricsto "melody" { \verseFour }
        \new Staff \transpose ees c' \harmony
        \new Staff { \transpose ees c'  \tenor }
        \new Staff { \transpose ees c'' \bass  }
      >>
    }
  }
}

#(define output-suffix "Eflat-melody")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose ees c \theChords }
        \new Voice = "melody" { \transpose ees c \melody }
        \new Lyrics \lyricsto "melody" { \verseOne }
        \new Lyrics \lyricsto "melody" { \verseFour }
        \new Staff \transpose ees c' \harmony
      >>
    }
  }
}

#(define output-suffix "Eflat-bass")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose ees c \theChords }
        \new Staff { \transpose ees c'  \tenor }
        \new Staff { \transpose ees c'' \bass  }
      >>
    }
  }
}

#(set-default-paper-size "letter" 'portrait)
#(define output-suffix "Accordion")
\book {
  \paper {
    page-count = #1
  }
  \header { poet = "Accordion" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \theChords }
        \new Voice = "melody" { \accordionOne }
        %\new Lyrics \lyricsto "melody" { \verseOne }
        %\new Lyrics \lyricsto "melody" { \verseFour }
        \new Staff { \transpose c c' \accordionTwo }
      >>
    }
  }
}

#(set-default-paper-size "letter" 'portrait)
#(define output-suffix "Piano")
\book {
  \paper {
    page-count = #1
  }
  \header { poet = "Piano" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \theChords }
        \new Voice = "melody" { \accordionOne }
        %\new Lyrics \lyricsto "melody" { \verseOne }
        %\new Lyrics \lyricsto "melody" { \verseFour }
        \new Staff { \clef "bass" \transpose c c, \accordionTwo }
      >>
    }
  }
}